home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 76 / MF_UK_76_1.iso / Education Feature / MicroWorlds 2.03 Try Me / MicroWorlds 2.03 Try Me.rsrc / TEXT_567_eot?.txt < prev    next >
Encoding:
Text File  |  1998-05-08  |  475 b   |  26 lines
  1. eot?
  2.  
  3. Stands for end of text. Reports true if the cursor, in the current text box, is at the end of the text. See bottom.
  4.  
  5. Example:
  6.  
  7. text1,
  8. bottom
  9. show eot?
  10. true
  11.  
  12. The following procedures can be used to number the lines in a text box. Eot? is generally used to stop a procedure that processes information in a text box using cursor commands like cd, eol, etc.
  13.  
  14. to numberlines
  15. top
  16. countup 1
  17. end
  18.  
  19. to countup :n
  20. if eot? [stop]
  21. insert :n
  22. insert char 32
  23. sol cd
  24. countup :n + 1
  25. end
  26.